home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / util / rexx / Pixload-2.2.lha / Pixload-2.2 / Install-pixload next >
Text File  |  2002-10-16  |  11KB  |  502 lines
  1. ; $VER: Install-Pixload version 2.2
  2. ; Script to install Pixload
  3.  
  4. (showmedia "pixload" "pixload.jpg" "center" "none" 0)
  5.  
  6. (message '\n\n\nInstallation de Pixload\nPixload installation\n\n------------------\n\nVous devez installer RXMUI (version 28.x) avant\nYou must install RXmui (version 28.x) before')
  7. (welcome)
  8.  
  9. (set #drawer
  10.      (cat "Ou voulez-vous installer Pixload ? (un répertoire Pixload sera crée) \n Where do you want to install Pixload package ? (a Pixload folder will be created)")
  11. )
  12.  
  13. (set TargetDir
  14.     (askdir
  15.         (prompt #drawer)
  16.         (default "SYS:")
  17.         (help "")
  18.     )
  19. )
  20.  
  21. (set DestDir (tackon TargetDir "Pixload"))
  22.  
  23. (if (askbool
  24.        (prompt "\n\n\n\nVoulez-vous faire une copie de sauvegarde de votre user-startup?\nMay you want a backup ?")
  25.        (help "")
  26.        (default 1)
  27.     )
  28.     (
  29.     (copyfiles (source "sys:s/user-startup")
  30.               (newname "ram:user-startup.old")
  31.                (dest "ram:")
  32.     )
  33.     (copyfiles (source "ram:user-startup.old")
  34.                (dest "sys:s")
  35.     )
  36.     (delete "ram:user-startup.old")
  37.     )
  38.  
  39. )
  40.  
  41. (protect "S:User-Startup" "rwed")
  42.  
  43. (startup "Pixload"
  44.    (prompt "\n\n\nAjout d'une assignation dans la user-sequence\n (Add assign in user-startup)\n\n Assign Pixload:"Destdir)
  45.    (command (cat "assign Pixload: \""Destdir "\"\n"))
  46.    (help "")
  47. )
  48.  
  49.  
  50. (set progdir (tackon Destdir ""))
  51.              (makedir progdir)
  52.  
  53. (makeassign "Pixload" Destdir)
  54.  
  55. (copyfiles (source "Pixload")
  56.            (dest Destdir)
  57. )
  58.  
  59. (copyfiles (source "Pixload.info")
  60.            (dest Destdir)
  61. )
  62.  
  63. (copyfiles (source "Pixload-Fra.guide")
  64.            (dest Destdir)
  65. )
  66.  
  67. (copyfiles (source "Pixload-Fra.guide.info")
  68.            (dest Destdir)
  69. )
  70.  
  71. (copyfiles (source "Pixload-Eng.guide")
  72.            (dest Destdir)
  73. )
  74.  
  75. (copyfiles (source "Pixload-Eng.guide.info")
  76.            (dest Destdir)
  77. )
  78.  
  79. (set iconedir (tackon Destdir "Icones"))
  80.               (makedir iconedir)
  81.  
  82. (set prefsdir (tackon Destdir "Prefs"))
  83.               (makedir prefsdir)
  84.  
  85. (set sonsdir (tackon Destdir "Sons"))
  86.               (makedir sonsdir)
  87.  
  88. (copyfiles (source "icones/0")
  89.            (dest iconedir)
  90. )
  91.  
  92. (copyfiles (source "icones/1")
  93.            (dest iconedir)
  94. )
  95.  
  96. (copyfiles (source "icones/2")
  97.            (dest iconedir)
  98. )
  99.  
  100. (copyfiles (source "icones/3")
  101.            (dest iconedir)
  102. )
  103.  
  104. (copyfiles (source "icones/4")
  105.            (dest iconedir)
  106. )
  107.  
  108. (copyfiles (source "icones/5")
  109.            (dest iconedir)
  110. )
  111.  
  112. (copyfiles (source "icones/6")
  113.            (dest iconedir)
  114. )
  115.  
  116. (copyfiles (source "icones/7")
  117.            (dest iconedir)
  118. )
  119.  
  120. (copyfiles (source "icones/8")
  121.            (dest iconedir)
  122. )
  123.  
  124. (copyfiles (source "icones/9")
  125.            (dest iconedir)
  126. )
  127.  
  128. (copyfiles (source "icones/10")
  129.            (dest iconedir)
  130. )
  131.  
  132. (copyfiles (source "icones/11")
  133.            (dest iconedir)
  134. )
  135.  
  136. (copyfiles (source "icones/12")
  137.            (dest iconedir)
  138. )
  139.  
  140. (copyfiles (source "icones/13")
  141.            (dest iconedir)
  142. )
  143.  
  144. (copyfiles (source "icones/14")
  145.            (dest iconedir)
  146. )
  147.  
  148. (copyfiles (source "icones/son")
  149.            (dest iconedir)
  150. )
  151.  
  152. (copyfiles (source "icones/fond")
  153.            (dest iconedir)
  154. )
  155.  
  156. (copyfiles (source "icones/fond-prefs")
  157.            (dest iconedir)
  158. )
  159.  
  160. (copyfiles (source "Prefs/Pixload.Prefs")
  161.            (dest prefsdir)
  162. )
  163.  
  164. (copyfiles (source "sons/0")
  165.            (dest sonsdir)
  166. )
  167.  
  168. (copyfiles (source "sons/1")
  169.            (dest sonsdir)
  170. )
  171.  
  172. (copyfiles (source "sons/2")
  173.            (dest sonsdir)
  174. )
  175.  
  176. (copyfiles (source "sons/3")
  177.            (dest sonsdir)
  178. )
  179.  
  180. (copyfiles (source "sons/4")
  181.            (dest sonsdir)
  182. )
  183.  
  184. (copyfiles (source "sons/5")
  185.            (dest sonsdir)
  186. )
  187.  
  188. (copyfiles (source "sons/6")
  189.            (dest sonsdir)
  190. )
  191.  
  192. (copyfiles (source "sons/7")
  193.            (dest sonsdir)
  194. )
  195.  
  196. (copyfiles (source "sons/8")
  197.            (dest sonsdir)
  198. )
  199.  
  200. (copyfiles (source "sons/9")
  201.            (dest sonsdir)
  202. )
  203.  
  204. (copyfiles (source "sons/10")
  205.            (dest sonsdir)
  206. )
  207.  
  208. (copyfiles (source "sons/11")
  209.            (dest sonsdir)
  210. )
  211.  
  212. (copyfiles (source "sons/12")
  213.            (dest sonsdir)
  214. )
  215.  
  216. (copyfiles (source "sons/13")
  217.            (dest sonsdir)
  218. )
  219.  
  220. (copyfiles (source "sons/diag")
  221.            (dest sonsdir)
  222. )
  223.  
  224. (set dest-dir "SYS:c")
  225. (copyfiles (source "c/wbrun")
  226.            (dest dest-dir)
  227. )
  228.  
  229. (copyfiles (source "c/gcsound")
  230.            (dest dest-dir)
  231. )
  232.  
  233. (copyfiles (source "c/dsound")
  234.            (dest dest-dir)
  235. )
  236.  
  237. (copyfiles (source "c/eject")
  238.            (dest dest-dir)
  239. )
  240.  
  241. (set dest-dir "SYS:s")
  242. (copyfiles (source "s/filetypes")
  243.            (dest dest-dir)
  244. )
  245.  
  246. (set dest-dir "SYS:Prefs/env-archive/mui")
  247. (copyfiles (source "mui/Pixload.1.Prefs")
  248.            (dest dest-dir)
  249. )
  250.  
  251. (copyfiles (source "mui/Pixload-config.1.Prefs")
  252.            (dest dest-dir)
  253. )
  254.  
  255. (if (exists "ram:env/mui")
  256.     (
  257.       (set dest-dir "ram:Env/mui")
  258.       (copyfiles (source "mui/Pixload.1.Prefs")
  259.                  (dest dest-dir)
  260.       )
  261.       (copyfiles (source "mui/Pixload-config.1.Prefs")
  262.                  (dest dest-dir)
  263.       )
  264.     )
  265. )
  266.  
  267. (set dest-dir "SYS:libs")
  268.  
  269. (if (exists "sys:libs/rexxtricks.library")
  270.             (
  271.                (copylib
  272.                   (prompt "rexxtricks.library")
  273.                   (help "")
  274.                   (source "Libs/rexxtricks.library")
  275.                   (dest dest-dir)
  276.                   (confirm)
  277.                )
  278.             )
  279.             (
  280.                   (copyfiles
  281.                   (prompt "Copie de Rexxtricks.library\nCopy of Rexxtricks.library")
  282.                   (help "")
  283.                   (source "Libs/rexxtricks.library")
  284.                   (dest dest-dir)
  285.                   (confirm)
  286.                )
  287.             )
  288.  
  289. )
  290.  
  291.  
  292. (if (exists "sys:libs/whatis.library")
  293.             (
  294.                (copylib
  295.                   (prompt "whatis.library")
  296.                   (help "")
  297.                   (source "Libs/whatis.library")
  298.                   (dest dest-dir)
  299.                   (confirm)
  300.                )
  301.             )
  302.             (
  303.                   (copyfiles
  304.                   (prompt "Copie de Whatis.library\nCopy of Whatis.library")
  305.                   (help "")
  306.                   (source "Libs/whatis.library")
  307.                   (dest dest-dir)
  308.                   (confirm)
  309.                )
  310.             )
  311.  
  312. )
  313.  
  314.  
  315. (if (exists "sys:libs/rexxsupport.library")
  316.             (
  317.                (copylib
  318.                   (prompt "rexxsupport.library")
  319.                   (help "")
  320.                   (source "Libs/rexxsupport.library")
  321.                   (dest dest-dir)
  322.                   (confirm)
  323.                )
  324.             )
  325.             (
  326.                   (copyfiles
  327.                   (prompt "Copie de Rexxsupport.library\nCopy of Rexxsupport.library")
  328.                   (help "")
  329.                   (source "Libs/rexxsupport.library")
  330.                   (dest dest-dir)
  331.                   (confirm)
  332.                )
  333.             )
  334.  
  335. )
  336.  
  337. (if (exists "sys:libs/parm.library")
  338.             (
  339.                (copylib
  340.                   (prompt "parm.library")
  341.                   (help "")
  342.                   (source "Libs/parm.library")
  343.                   (dest dest-dir)
  344.                   (confirm)
  345.                )
  346.             )
  347.             (
  348.                   (copyfiles
  349.                   (prompt "Copie de Parm.library\nCopy of Parm.library")
  350.                   (help "")
  351.                   (source "Libs/parm.library")
  352.                   (dest dest-dir)
  353.                   (confirm)
  354.                )
  355.             )
  356.  
  357. )
  358.  
  359. (if (exists "sys:libs/guigfx.library")
  360.             (
  361.                (copylib
  362.                   (prompt "guigfx.library")
  363.                   (help "")
  364.                   (source "Libs/guigfx.library")
  365.                   (dest dest-dir)
  366.                   (confirm)
  367.                )
  368.             )
  369.             (
  370.                   (copyfiles
  371.                   (prompt "Copie de guigfx.library\nCopy of guigfx.library")
  372.                   (help "")
  373.                   (source "Libs/guigfx.library")
  374.                   (dest dest-dir)
  375.                   (confirm)
  376.                )
  377.             )
  378.  
  379. )
  380.  
  381. (if (exists "sys:libs/render.library")
  382.             (
  383.                (copylib
  384.                   (prompt "render.library")
  385.                   (help "")
  386.                   (source "Libs/render.library")
  387.                   (dest dest-dir)
  388.                   (confirm)
  389.                )
  390.             )
  391.             (
  392.                   (copyfiles
  393.                   (prompt "Copie de render.library\nCopy of render.library")
  394.                   (help "")
  395.                   (source "Libs/render.library")
  396.                   (dest dest-dir)
  397.                   (confirm)
  398.                )
  399.             )
  400.  
  401. )
  402.  
  403.  
  404. (if (exists "sys:libs/vapor_toolkit.library")
  405.             (
  406.                (copylib
  407.                   (prompt "vapor_toolkit.library")
  408.                   (help "")
  409.                   (source "Libs/vapor_toolkit.library")
  410.                   (dest dest-dir)
  411.                   (confirm)
  412.                )
  413.             )
  414.             (
  415.                   (copyfiles
  416.                   (prompt "Copie de vapor_toolkit.library\nCopy of vapor_toolkit.library")
  417.                   (help "")
  418.                   (source "Libs/vapor_toolkit.library")
  419.                   (dest dest-dir)
  420.                   (confirm)
  421.                )
  422.             )
  423.  
  424. )
  425.  
  426. (set dest-dir "MUI:libs/mui")
  427.  
  428.  
  429. (if (exists "Mui:libs/mui/TextInput.mcc")
  430.             (
  431.                (copylib
  432.                   (prompt "TextInput.mcc")
  433.                   (help "")
  434.                   (source "Mcc/TextInput.mcc")
  435.                   (dest dest-dir)
  436.                   (confirm)
  437.                )
  438.             )
  439.             (
  440.                   (copyfiles
  441.                   (prompt "Copie de TextInput.mcc\nCopy of TextInput.mcc")
  442.                   (help "")
  443.                   (source "Mcc/TextInput.mcc")
  444.                   (dest dest-dir)
  445.                   (confirm)
  446.                )
  447.             )
  448. )
  449.  
  450. (if (exists "Mui:libs/mui/TextInputscroll.mcc")
  451.             (
  452.                (copylib
  453.                   (prompt "TextInputscroll.mcc")
  454.                   (help "")
  455.                   (source "Mcc/TextInputscroll.mcc")
  456.                   (dest dest-dir)
  457.                   (confirm)
  458.                )
  459.             )
  460.             (
  461.                   (copyfiles
  462.                   (prompt "Copie de TextInputscroll.mcc\nCopy of TextInputscroll.mcc")
  463.                   (help "")
  464.                   (source "Mcc/TextInputscroll.mcc")
  465.                   (dest dest-dir)
  466.                   (confirm)
  467.                )
  468.             )
  469. )
  470.  
  471. (set dest-dir "SYS:Prefs")
  472. (copyfiles (source "Pixload-Prefs")
  473.            (dest dest-dir)
  474. )
  475. (copyfiles (source "Pixload-Prefs.info")
  476.            (dest dest-dir)
  477. )
  478.  
  479. (set #drawer
  480.      (cat "Ou voulez enregistrer l'executable Pixload ?\nWhere do you want to store Pixload Software ?")
  481. )
  482.  
  483. (set dest-dir
  484.      (askdir
  485.         (prompt #drawer)
  486.         (default "Sys:Wbstartup")
  487.         (help "")
  488.      )
  489. )
  490.  
  491. (copyfiles (source "Pixload-start")
  492.            (dest dest-dir)
  493. )
  494.  
  495. (copyfiles (source "Pixload-start.info")
  496.            (dest dest-dir)
  497. )
  498.  
  499. (exit '\n\n Pixload est installé, \nPixload had been installed\n\n Lisez le fichier guide et/ou HTML pour configurer Pixload et lancer-le depuis la Wbstartup \n(pas de reboot obligatoire)\n\nRead Guide/HTML files to configure Pixload and try it from Wbstartup (no need to reboot)' (quiet))
  500.  
  501.  
  502.